00100	< FILE NAME='INSTS'
00200	<FOUR INSTRUMENTS FOR ELEMENTRY COMPUTER MUSIC
00300	<P10 IS STEREO CONTROL. 0=CHAN. A; 1=CHAN. B.
00400	
00500	COMPILE;
00600	INSTRUMENT TOOT;
00700	OSCIL[10](P4,10*MAG/P2,P5);
00800	COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
00900	OUTB←OUTB+U2*P10;OUTA←OUTA-U2*(1-P10);END;
01000	
01100	INSTRUMENT CLAR;
01200	OSCIL[10](P4,10*MAG/P2,P5);
01300	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
01400	OUTB←OUTB+U2*P10;OUTA←OUTA-U2*(1-P10);END;
01500	
01600	INSTRUMENT BRIT;
01700	OSCIL[10](P4,10*MAG/P2,P5);
01800	COSCIL(U1,P3*MAG,P8);< P8 IS TONE COLOR FOR 'BRIT'
01900	OUTB←OUTB+U2*P10;OUTA←OUTA-U2*(1-P10);END;
02000	
02100	INSTRUMENT BUZZ;
02200	OSCIL[10](P4,10*MAG/P2,P5);
02300	COSCIL(U1,P3*MAG,P9);< P9 IS TONE COLOR FOR 'BUZZ'
02400	OUTB←OUTB+U2*P10;OUTA←OUTA-U2*(1-P10);END;
02450	
02500	< GLISSANDO INST.
02600	INSTRUMENT GLISS;
02700	OSCIL[10](P4,10*MAG/P2,P5);
02800	OSCIL((P7-P3)*MAG,MAG/P2,P8);<P7=END OF GLISS, P8=SHAPE OF GLISS
02900	COSCIL(U1,U2+P3*MAG,P6);<P6 IS TONE COLOR FOR 'GLISS'
03010	OUTB←OUTB+U3*P10;OUTA←OUTA-U3*(1-P10);END;
03100	FINISH;
03300	
03400	ARRAY F2,F3,F4,F5,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
03500	SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
03600	SEG(F2);1 3,1 11,.4 31,.1 51,0 100; < STACCATO
03700	SYNTH(F3);1,.8  2,.15 3,.05  999; < TOOT
03800	SYNTH(F4);1,.5  3,.3  5,.2  7,.1  999; < CLAR
03900	SYNTH(F5);1,.3  2,.4  3,.2  8,.2  12 .1  999; < BRIT
04000	SEG(F6);-1,1   1,7   -1,14   -1,100; < BUZZ
04100	
04200	
04300	PLAY;GLISS 0 .12 C 1000 F1 F3 G F5 F6 0;P7←F4;TOOT .12;
04400	CLAR .24;BRIT .36;BUZZ .48;FINISH;PRINT(LSBUF);